home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _GUICtrlTreeViewInsertItem.au3 < prev    next >
Text File  |  2006-08-04  |  1KB  |  48 lines
  1. #include <WindowsConstants.au3>
  2. #include <GuiTreeView.au3>
  3.  
  4. Opt("MustDeclareVars", 1)
  5.  
  6. Dim $h_GUI, $Msg, $treeview
  7. Dim $h_root1, $h_root2, $h_root3
  8. Dim $n_btn_insert
  9.  
  10. $h_GUI = GUICreate("TreeView UDF Sample", 220, 250)
  11.  
  12. $treeview = GUICtrlCreateTreeView(10, 10, 200, 200, -1, $WS_EX_CLIENTEDGE)
  13. GUICtrlSetImage(-1, "shell32.dll", 3, 4)
  14. GUICtrlSetImage(-1, "shell32.dll", 4, 2)
  15.  
  16. $h_root1 = _GUICtrlTreeViewInsertItem($treeview, "RootItem1")
  17. _GUICtrlTreeViewInsertItem($treeview, "SubItem1", $h_root1)
  18. _GUICtrlTreeViewInsertItem($treeview, "SubItem2", $h_root1)
  19.  
  20. $h_root2 = _GUICtrlTreeViewInsertItem($treeview, "RootItem2")
  21.  
  22. $h_root3 = _GUICtrlTreeViewInsertItem($treeview, "RootItem3")
  23. _GUICtrlTreeViewInsertItem($treeview, "SubItem3", $h_root3)
  24. _GUICtrlTreeViewInsertItem($treeview, "SubItem4", $h_root3)
  25.  
  26. $n_btn_insert    = GUICtrlCreateButton("Insert Items", 10, 220, 200, 20)
  27.  
  28. GUISetState()
  29.  
  30. While 1
  31.     $Msg = GUIGetMsg()
  32.     Switch $Msg
  33.         Case $GUI_EVENT_CLOSE
  34.             ExitLoop
  35.         
  36.         Case $n_btn_insert
  37.             GUICtrlSetCursor($treeview, 1)
  38.             For $i = 3 To 500
  39.                 _GUICtrlTreeViewInsertItem($treeview, "RootItem" & $i)
  40.                 ToolTip((500 - $i) & " items are created...")
  41.             Next
  42.             ToolTip("")
  43.             GUICtrlSetCursor($treeview, 2)
  44.     EndSwitch
  45. WEnd
  46.  
  47. Exit
  48.